home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 47.7z / BS1 part 47 / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].7z / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].adf / music / rectangle.bas < prev    next >
Encoding:
BASIC Source File  |  1988-12-03  |  657 b   |  33 lines
  1. DIM rectangle%(256)
  2. FOR x=0 TO 127
  3.   rectangle%(x)=127
  4. NEXT x
  5. FOR x=128 TO 255
  6.   rectangle%(x)=-128
  7. NEXT x
  8. WAVE 0,rectangle%
  9. WAVE 1,rectangle%
  10. WAVE 2,rectangle%
  11. ERASE rectangle%
  12.  
  13. SOUND WAIT
  14.  
  15. GetInfo:
  16.   READ freq,dur,vol,chl
  17.   IF freq=-1 THEN Play
  18.   SOUND freq,dur,vol,chl
  19. GOTO GetInfo:
  20.  
  21. Play:
  22.   SOUND RESUME
  23.  
  24. DATA 523.23,15,127,0, 659.28,15,96,1, 784,15,96,2
  25. DATA 784.15,15,222,0, 987.76,15,180,1, 1174.52,15,180,2
  26. DATA 698.48,6,127,0, 0,6,0,1, 0,6,0,2
  27. DATA 659.28,6,127,0, 0,6,0,1, 0,6,0,2
  28. DATA 587.28,6,127,0, 0,6,0,1, 0,6,0,2
  29. DATA 1046.52,15,225,0, 1318.52,15,180,1, 1568,15,180,2
  30. DATA 784,24,180,0, 987.76,24,160,1, 1174.52,24,160,2
  31. DATA -1,-1,-1,-1
  32.   
  33.